﻿Imports Utilitarios
Imports ServiciosAT
Imports ControladorasAT.SIREOS

Partial Class UserControl_ContactoRegistro
    Inherits System.Web.UI.UserControl

    Public Sub limpiarCampos()
        txbNombres.Text = Valores.vacio
        txbApellidos.Text = Valores.vacio
        txbTelefono.Text = Valores.vacio
        txbCorreo.Text = Valores.vacio
        LblCodigoSede.Text = Session("CodigoSede")
        Session("CodigoSede") = Valores.vacio
    End Sub

    Public Sub cargarDatosContacto()
        limpiarCampos()
        LblCodigoContacto.Text = Session("CodigoContacto")

        Dim oContacto As New SireosWSCliente.Contacto
        oContacto.codContacto = LblCodigoContacto.Text

        Dim oCtCliente As New CtCliente
        Dim oContactoBE As SireosWSCliente.Contacto = CType(oCtCliente.cargarDatosContacto(oContacto), SireosWSCliente.Contacto)
        If Not (oContactoBE Is Nothing) Then
            LblCodigoSede.Text = oContactoBE.codSede
            txbNombres.Text = oContactoBE.nomContacto
            txbApellidos.Text = oContactoBE.apeContacto
            txbTelefono.Text = oContactoBE.telContacto
            txbCorreo.Text = oContactoBE.mailContacto
        End If
        Session("CodigoContacto") = Valores.vacio
        Session("CodigoSede") = Valores.vacio
    End Sub

    Private Function validarCampos() As Boolean
        If txbNombres.Text = Valores.vacio Then
            Valores.mensajevar = Mensajes.ingresarNombre
            Return False
        ElseIf txbApellidos.Text = Valores.vacio Then
            Valores.mensajevar = Mensajes.ingresarApellido
            Return False
        Else
            Return True
        End If
    End Function

    Protected Sub ibtnGrabar_Click(sender As Object, e As ImageClickEventArgs) Handles ibtnGrabar.Click
        If validarCampos() = True Then

            Dim oContactoBE As New SireosWSCliente.Contacto
            oContactoBE.nomContacto = txbNombres.Text
            oContactoBE.apeContacto = txbApellidos.Text
            oContactoBE.mailContacto = txbCorreo.Text
            oContactoBE.codSede = LblCodigoSede.Text
            oContactoBE.telContacto = txbTelefono.Text

            Dim oCtCliente As New CtCliente

            If LblCodigoContacto.Text = Valores.vacio Then
                Dim ret As Integer = oCtCliente.registrarContacto(oContactoBE)
                If ret > 0 Then
                    LblCodigoContacto.Text = ret
                    Session("CodigoContacto") = LblCodigoContacto.Text
                    Helper.mensajeControl(Me, Mensajes.correctoGrabado)
                Else
                    Helper.mensajeControl(Me, Mensajes.errorGrabar)
                End If
            Else
                oContactoBE.codContacto = LblCodigoContacto.Text
                oCtCliente.modificarContacto(oContactoBE)
                Session("CodigoContacto") = LblCodigoContacto.Text
                Helper.mensajeControl(Me, Mensajes.correctoModificado)
            End If
        Else
            Helper.mensajeControl(Me, Valores.mensajevar)
        End If
    End Sub

End Class
